home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -readerstuff- / pete_sullivan / installme1st / installvc1 < prev    next >
Text File  |  1999-04-21  |  7KB  |  291 lines
  1. ;**************************************************
  2. ;
  3. ;$VER: VitalConnectv2.0 (June 1998
  4. ;
  5. ; Title:
  6. ;    VitalConnect Installer
  7. ; 
  8. ; Description:
  9. ;    The Commodore Installer Script for VitalConnect
  10. ;
  11. ; Installer script by Pete Sullivan
  12. ;
  13. ;**************************************************
  14.  
  15. (set true 1)
  16. (set false 0)
  17. (set quote "\"")
  18. (set nothing "")
  19. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  20.  
  21. (set VitalConnect_dir (getassign "VitalConnect"))
  22. (set c_dir (getassign "C"))
  23. (set libs_dir (getassign "LIBS"))
  24. (set fonts_dir (getassign "FONTS"))
  25. (set devs_dir (getassign "DEVS"))
  26. (set s_dir (getassign "S"))
  27. (set wbstartup_dir (getassign "SYS:WBSTARTUP"))
  28.  
  29. (set Src_root "")
  30. (set Src_c "c/")
  31. (set Src_s "s/")
  32. (set Src_libs "libs/")
  33. (set Src_devs "devs/")
  34. (set Src_rexx "rexx/")
  35. (set Src_DATA "DATA/")
  36. (set Src_Sullitech "/")
  37. (set Src_docs "Docs/")
  38. (set Src_fonts "Fonts/")
  39. (set Src_WBStartup "WBStartup/")
  40. (set Src_AmiFTP "AmiFTP/")
  41. (set Temp_dir "ram:t/")
  42.  
  43. (set MSG_CopyDevs1 "\n\nCopying needed device ")
  44. (set MSG_CopyDevs2 " to DEVS:")
  45.  
  46. ; start with not updated software!
  47.  
  48. (set is_update false)
  49.  
  50. (if  (<> VitalConnect_dir nothing)
  51.      (if  (askbool
  52.                (prompt "\n\n\nAn earlier version of VitalConnect already exists in"
  53.                " your drawer named: \n\n"
  54.                quote VitalConnect_dir quote
  55.                "\n\nDo you want the update installed over it?")
  56.                (help
  57.                "\n\n\nThe installer has determined that you already have a "
  58.                "some version of the VitalConnect software installed "
  59.                "on your system.  If this is wrong or you want the update "
  60.                "installed elsewhere, select 'NO', otherwise select 'YES'."
  61.                )
  62.                (default 1)
  63.           )
  64.                (set is_update true) 
  65.  
  66. ;else ask where to put software
  67.  
  68.                (
  69.                (set VitalConnect_dir
  70.                (askdir
  71.                     (prompt "Where would you like the updated software "
  72.                     "installed?\n"
  73.                     "The directory 'VitalConnect' will be created automatically.\n")
  74.                     (help @askdir-help)
  75.                     (default @default-dest)
  76.                )
  77.                )
  78.  
  79.                (set VitalConnect_dir
  80.                (tackon VitalConnect_dir "VitalConnect")
  81.                )
  82.  
  83.                (makedir VitalConnect_dir
  84.                (infos)
  85.                )
  86.           )
  87.      )
  88. )
  89.  
  90. ; VitalConnect: was not previously assigned, so ask where to make it
  91. (if  (= VitalConnect_dir nothing)
  92.           (
  93.           (set VitalConnect_dir
  94.                (askdir
  95.                     (prompt "Where would you like the software installed?\n"
  96.                     "The directory 'VitalConnect' will be created automatically.\n")
  97.                     (help @askdir-help)
  98.                     (default @default-dest)
  99.                )
  100.           )
  101.  
  102.           (set VitalConnect_dir
  103.           (tackon VitalConnect_dir "VitalConnect")
  104.           )
  105.  
  106.  
  107.           (makedir VitalConnect_dir
  108.           (infos)
  109.           )
  110.      )
  111. )
  112.  
  113. (set @default-dest VitalConnect_dir)
  114.  
  115. (complete 5)
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.    
  130.  
  131.  
  132. (working omp "...Please Wait...")
  133.  
  134. (copyfiles
  135.      (prompt "Select file(s) to be copied into your WBStartup: directory:")
  136.      (help "\n\n\n\n\nThis will copy the NetStart facility to your WBStartup: "
  137.      "directory.\n\n\n\n\n\n\n\n"
  138.      @copyfiles-help)
  139.      (source Src_root)
  140.      (dest "SYS:WBStartup")
  141.      (pattern "(IconDock3|IconDock3.info)")
  142.      
  143. )
  144.    
  145. (complete 20)
  146.  
  147. (working omp "...Please Wait...")
  148.  
  149. ;copy Cando.library
  150.  
  151. (copylib
  152.    (source (tackon Src_libs "cando.library"))
  153.    (dest "LIBS:")
  154.    (prompt "Copying needed 'Cando.library' to LIBS:")
  155.    (help @copylib-help)
  156.    
  157. )
  158.  
  159. (complete 30)
  160.  
  161.  
  162.  
  163. ; Copy SulliTech
  164.  
  165. (working omp "...Please Wait...")
  166.    
  167. (set VitalConnect_dir
  168.      (copyfiles
  169.           (prompt "These files will be copied to the VitalConnect: directory:")
  170.           (help "\n\n\n\n\n\nThis will copy VitalConnect's main "
  171.           "programs.\n\n\n\n\n\n\n"
  172.           @copyfiles-help)
  173.           (source Src_root)
  174.           (dest VitalConnect_dir)
  175.           (pattern "(#?IconDock|IconDock.info|IconDock2|IconDock2.info|Shrink|Shrink3|Shrink4|IconDock3|IconDock3.info|IconDock4|IconDock4.info|Sullitech|IconVert|About|Sullot|ReadMe|Readme.info|VCInfo|QuickStart|QuickStart.info#?)")
  176.           
  177. )
  178.  
  179.  
  180. )
  181.  
  182.  
  183. (complete 50)
  184.  
  185. ;create Documentation directory
  186.  
  187. (set Docs_dir
  188. (cat VitalConnect_dir)
  189. )
  190. (set Docs_dir
  191. (tackon Docs_dir "Docs")
  192. )
  193.  
  194. (makedir Docs_dir
  195. (infos)
  196. )
  197.  
  198. (working omp "...Please Wait...")
  199.  
  200. (copyfiles
  201.      (prompt "Select file(s) to be copied to the VitalConnect:Docs directory:")
  202.      (help "\n\n\n\n\nThis will copy the HTML documentation for "
  203.      "VitalConnect.  This documentation should reside in your "
  204.      "'VitalConnect:Docs' directory.\n\n\n\n\n\n"
  205.      @copyfiles-help)
  206.      (source Src_Docs)
  207.      (dest Docs_dir)
  208.      (pattern "#?vc#?")
  209.      
  210.  
  211. )
  212.  
  213. (complete 60)
  214.  
  215. ;create Rexx directory
  216.  
  217. (set Rexx_dir
  218. (cat VitalConnect_dir)
  219. )
  220. (set Rexx_dir
  221. (tackon Rexx_dir "Rexx")
  222. )
  223.  
  224. (makedir Rexx_dir
  225. (infos)
  226. )
  227.  
  228. (working omp "...Please Wait...")
  229.  
  230. (copyfiles
  231.      (prompt "These file(s) must be copied into the Rexx directory:")
  232.      (help "\n\n\n\nRexxMast MUST be running on your system for "
  233.      "VitalConnect to use.  These AREXX scripts should reside in your "
  234.      "'VitalConnect:Rexx' directory.\n\n\n\n\n\n"
  235.      @copyfiles-help)
  236.      (source Src_Rexx)
  237.      (dest Rexx_dir)
  238.      (pattern "#?rx#?")
  239.      
  240. )
  241.  
  242. (complete 70)
  243.  
  244. ; add assigns to User-Startup if this is not an update
  245.  
  246. (if  (= is_update false)
  247.      (if  (askbool
  248.                (prompt "\nIn order for VitalConnect to work correctly, "
  249.                "Somewhere in the USER-STARTUP must be an assigment"
  250.                " for 'VitalConnect:'\n\n"
  251.                "These lines can be added for you automatically by this "
  252.                "installer.  Would you like these lines added? \n\n"
  253.                "  assign VitalConnect: "VitalConnect_dir)
  254.                (help @askbool-help)
  255.                )
  256.  
  257.                (
  258.                     (if (= @pretend 0)
  259.                     (
  260.                         (
  261.                         (if  (not  (exists "s:user-startup"))
  262.                              (textfile
  263.                              (dest "s:user-startup")
  264.                              (append ";user-startup \n\n")
  265.                          )
  266.                     )
  267.                     (textfile
  268.                     (dest "ram:user-startup")
  269.                     (include "s:user-startup")
  270.                     (append ";BEGIN VitalConnect assignment\n")
  271.                     (append "assign VitalConnect: " VitalConnect_dir)
  272.                     (append "\n;END VitalConnect assignment\n")
  273.                     )
  274.                     (rename "s:user-startup" "s:user-startup.old")
  275.                     (copyfiles
  276.                     (help @copyfiles-help)
  277.                     (source "ram:user-startup")
  278.                     (dest "s:")
  279.                     )
  280.                     (delete "ram:user-startup")
  281.                )
  282.           )
  283.           )
  284.      )
  285.      )
  286. )
  287.  
  288. (complete 60)
  289.  
  290. (exit)
  291.